home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / stuffit.arc / DELFILE.ASM < prev    next >
Assembly Source File  |  1985-11-18  |  640b  |  40 lines
  1. comment ~
  2.  
  3.         delete file
  4.  
  5. On entry:
  6.     DX    address of ASCIIZ string of file to be deleted
  7.  
  8. Error return if CY is set:
  9.     2    File not found
  10.     5    Access denied
  11.  
  12. ~
  13. ;----------------------------------------------------------
  14. ;        constants and messages
  15.  
  16. df_msg        db    cr,lf,'delfile: ',eos
  17.  
  18. ;----------------------------------------------------------
  19. ;        main code
  20.  
  21. delfile        proc    near
  22.         
  23.         mov    ah,41h        ;delete file from directory function
  24.         int    21h
  25.         jc    delf_err
  26.  
  27.         ret
  28.  
  29. delf_err:
  30.         push    ax        ;save error code
  31.         mov    dx,offset df_msg
  32.         mov    ah,9h
  33.         int    21h
  34.         pop    ax
  35.         call    errmsg
  36.         stc
  37.         ret
  38.  
  39. delfile        endp
  40.